RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F I LE**1D**OUTHDR 

000000 UU UU TITTTTTTTT HH HH DDDDDDDD RRRRRRRR 
000000 UU UU TTTTTTTTTT HH HH DDDDDDDD RRRRRRRR 

00 00 UU UU TT HH HH DD DD RR RR 

00 00 YU UU TT HH HH DD DD RR RR 

00 oc UU UU TT HH HH DD DD RR RR 

00 00 UU UU TT HH HH DD DD RR RR 

00 00 UU UU TT HHHHHHHHHH = DD DD RRRRRRRR 

00 00 UU UU TT HHHHHHHHHH = DD DD RRRRRRRR 

00 00 UU UU TT HH HH OD DD RR RR 

00 00 UU UU TT HH HH DD DD RR RR 

00 00 UU UU TT HH HH DD DD RR RR eeee 

00 00 UU UU TT HH HK DD DD RR RR eee 
000000 UYUUUUUUUUU TT HH HH DDDDDDDD RR RR coe 
000000 UUUUUUUUUU TT HH HH DDDDDDDD RR RR cove 

LL III! SSSSSSSS 

LL HII] SSSSSSSS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLLL HII! SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 


se 


O/P module for processing HEADER: figure, table 16-50 Sep-1984 9 AX-11 Bliss-32 V4.0-742 Page 1 
. . 8ep-1986 9}: 89: $3 RUNOFF ..SRCJOUTHDR.BLI;1 . 


ZTITLE ‘O/P module for fF processing. HEADER: figure, table, example, level’ 
MODULE OUTHDR SfOENT 
ZBL ADDRESSING_MODE ( EXTERNAL ® LONG_RELA 


1$$32 TIVE 
wh NONE X TERNAL LONG-RELATIVES J 


~~ 
> 
~ 
) 


BEGIN 


PETTTITILILILL LL LLL LL LLL LLL LLL LLL TLL Liii lili iiiiiiiiiill 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

i. ALL RIGHTS RESERVED. 

it noe i heche a teu UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE ae THE TERMS OF SUCH pitt AND ee NER 


es ss 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= aeppokat ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
*® 
® 
- 
*® 
® 
® 
® 
® 
! % 
ie TRANSFERRED. x 
*® 
® 
® 
® 
ie 
*® 
® 
® 
® 
* 


PETTTITITILILILI LILI LL LLL LLL LLL LLL LiL iii 
i 


i Facturty: DSR (Digital Standard RUNOFF) / DSRPLUS 

ABSTRACT: General purpose processor for headers of various kinds 
ENVIRONMENT: Transportable 

AUTHOR: R.W.Friday CREATION DATE: March, 1982 
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pn : XSBTTL "Revision History’ 
Oee MODIFIED BY: 
0044 1! 017 REM00017 Ray Marshall = 21-Mar-1984 <= 4-Apr-1984 
045 1! Implemented the foreign language conditionals for compiling 
Bho ! xed output words. 
O048 ii 016 KFA00016 Ken Alden 15-Nov-1983 
0049 1! Reversed action performed in #14, so now the toctxt and tochl 
ppay : } records are shipped out for and header ... 
0084 1 i 015 KFA00015 Ken Alden 01-Nov-1983 
0053 1! For FLIP, loosened restriction imposed in #014 to provide 
gnee } support for .HE, .HF, .HT. 
0056 1! 014 KAD00014 Keith Dawson 25-May-1983 
0057 1! For FLIP, forbid writing header information to the TOC for 
0058 1! F of o alte s is a FLIP Level 1 requirement that can 
+4 : } be loosened for Level 2 support. 
0061 1 / 013 KAD00013 Keith Dawson 19-May-1983 
Boe : Moved the location at which the SCA_HEADER bit, used by FLIP, 
0064 1! ting between this module and LOHORI -=- because a new save 
Bpe2 : and restore of the SCA intervened. 
0067 1! 012 KFA00012 Ken Alden 16-Mar-1983 
Bpe8 : } PUSH/POP_SCA now visible to dsr. 
0070 1: 011 KFA00011 Ken Alden 11-Mar-1983 
0071 1! For DSRPLUS: hl emphasis is always passed to the BRN, 
it : regardless of whether it is autosubtitle or not. 
0074 1: 010 KAD00010 Keith Dawson 07-Mar-1983 
0075 1! Global edit of all modules. Updated module names, idents, 
oops ' } copyright dates. Changed require files to BLISS library. 
0078 1 i-- 


is set. This hit was not serving Tts purpose -- communica- 
| 


EQUATED SYMBOLS: 


Ones 
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v04-000 Module Level Declarat ont ° 13-80-1382 93:80:68 RUNOFF eSRETOUSHDR BL 10 = (33 

8 144 XSBTTL "Module Level Declarations’ 

68 9 TABLE OF CONTENTS: 

85 0 FORWARD ROUTINE 

86 OUTHDR : NOVALUE, ' Generate numbered or unnumbered header. 

44 ; OUTCTR : NOVALUE; ' Generate counter for the header. 

89 0 i INCLUDE FILES: 

3 O89 1 

3 LIBRARY ‘NXPORT:XPORT'; ' XPORT Library 

a7 REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 

95 U ZIF OSRPLUS XTHEN 

38 U bzBRenv *REQ:DPLLIB'; ! DSRPLUS BLISS Library 

98 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 

99 ZF I 

00 

01 ! 

4 ! MACROS 

0 ! 

0 ! 

0 ! 

0 ! 

07 

0 

0 


RINTES : UNSIGNED (8); 


EXTERNAL LITERAL 
S_FMRA; ‘Allocated length for footnote MRA. 


OWN STORAGE: 


OWN 
PP_SCA : SH_R_SCA_BLOCK; 'Used in PUSH_SCA, POP_SCA macros (defined in SCA.REQ). 
EXTERNAL REFERENCES: 


BERBERS FEMI WIAWIWIWIPPONPNININYINYN O 0@Woo 
MEWR 0 OONOA UES WN 9 ODNAUES WIN O OONAUE WN OOODNAOUES WN OOONOULS WHO 


POPIPIPOPOPIPIPYNIPUNINININPYNIPUPIPINIPNIPNPNPUN) 


EXTERNAL LITERAL 


MEWN OOO VNOAUEWN "OOONOUSWN—O0W 
ee a ee a ee ae ee a a ee ee ee ee ee ce ee ee ee a a a ed ed 
— . ss 


Se Se Se Se Se Se Se Se Se Se Se Be Se Ge Ge Se Se Ge Ge ge Fe Ge Fe Fe Ge Fe Se Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Ge Sees Se + Se Se Fe Se Se Se asses Fe See Se tsas 
— 


SOOO OSOOOSOOSOOSOOSOCOOOCOCOSSCOSSOOOSOSS SOOO OOSCOSOOCOOOOCO DO SOOSOOOOOOSoOO 


ee a ee ee ee re ee el ce ee ce ee ee ee ce ee ce ee ee el ee cee ee ee el el ee ed el ee el el el ee ed 
—_ 


2 
2 5 EXTERNAL 
2 5 FOOMRA : FIXED STRING 
5 FOOTSF : VECTOR CTSF_SIZEJ, 
5 FSO1 : FIXED STRING 
5 ECC : SECC BCOCKVECfoR, ! Counters and display codes for Examples, Figures, Tables 
3 5 GCA : GCA_DEFINITION, 
5 HLC : HLC DEFINITION, 
5 HLDSP : VECTOR CMAX_LEVELS], 
5 HLLIST : COUNTED_LIST, 
5 RA : FIXED STRING 
6 RA : REF FIXED STRING 
6 NPAGEN : PAGE DEFINITION, 
6 PAGEN : PAGE DEFINITION, 
6 PHAN : PHAN DEFINIT 
6 SBTMRA : FIRED STRI 
6 SBTTSF : VECTOR, 


YY c— 


Se Ge Se Se Ge Ge Se ee Seas 
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66 1 SCA : SCA_DEFINITION 
or 6 TSF : TSF_DEFINITION 

OB 1 

8 1 EXTERNAL 

0 1 KHAR; 

ry Be 

a 1 EXTERNAL ROUTINE 

73. (1 ap eee endwrd, gcskip, gtpc, outnj, 
0274 1 outer pacsec, Pacxxx, put tpg. putcnt, 
0275 1 puttxt, scant, setcas, skips, titles; 
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Module Level Declarations 
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RUNOFF ..SRCJOUTHDR.8LI; 
GLOBAL sedate OUTHDR 


Lines_before, Lines_after, test_page_amount, 
counter_major_type, counter_minor_type, 

counter_value, counter _display_code, counter _spaces_after, 
counter_pre_string_length counter_pre_string_ptr, 

counter _post_string_length. counter_post_string_ptr, 
caption_major_type, caption_minor_type capt on. case. 
caption_is_centered, caption_is_flus right, caption_is_run_in, 
caption_is_bold, caption_is_underlined, put_intd_mem_file 
autosubfitTe, brn_open, reak_before_caption, 
Lines_between, new_page, startodd, 

tocpage 


x NOVALUE = 

i FUNCTIONAL DESCRIPTION: 

See the ABSTRACT, above. 
i FORMAL PARAMETERS: 


i IMPLICIT OUTPUTS: None 


i ROUTINE VALUE: 
i COMPLETION CODES: None 


i SIDE EFFECTS: None 


' 

' 

' 

' 

i 

‘ 

' LINES_BEFORE leave this many blank Lines before the header 

' LINES_AFTER leave this many blank Lines after the (non-run-in) header 
! TEST _PAGE_AMOUNT start a new page unless this ay Lines remain 

' COUNTER_MAJOR_TYPE (not implemented) always MAJ_RUNOFF 

! COUNTER_MINOR_TYPE specifies type of header: HL, Example, Figure, Table 

! COUNTER_VALUE (not used for His) numerical value of the counter 

! COUNTER_DISPLAY_CODE (not used for HLs) display code of the counter 

! COUNTER_SPACES AFTER leave this —y spaces between counter and caption 

! COUNTER_PRE_STRING_LENGTH (not used for HLs) length of pre-counter string 

! COUNTER_PRE_STRING PTR (not used for HLs) perncer to pre-counter string 

' COUNTER_POST_STRING_LENGTH (not used for HLs) length of post-counter string 

! COUNTER_POST_STRING_PTR (not used for HLs) pointer to pees tener string 

! CAPTION_MAJOR_TYPE (not implemented) always MAJ_RUNOFF 

! CAPTION_MINOR_TYPE specifies whether or not to Show the counter 

! CAPTION_CASE code for the case rules to apply to the caption 

! CAPTION_IS_CENTERED True if caption should be centered 

! CAPTION_IS_FLUSH_ RIGHT (not implemented) True if caption should be flush-right 
! CAPTION_IS_RUN_IRN True if caption should be run-in with following text 

! CAPTION_IS_BOLD True if caption should be bolded 

! CAPTION IS _ UNDERLINED True if caption should be underlined 

' PUT_INTO_MEM_FI (not implemented) True if header should be output in .MEM file 
' AUTOSUBTITLE True 1f header should be picked up as an auto subtitle 
RN_OPEN True if header should be sent to the TOC 

i] 

; IMPLICIT INPUTS: None 

‘ 

‘ 

' 

i] 

‘ 

' 

' 
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Module Level Declarations 14-Sep-19 
3 BEGIN 
LOCAL 
GEN_ CHAR 
HOLD_KHAR 


DPD PPPS BB BB BB BEE AAAI 


WN O OONOUES WIN O OONOV EWN OOONOUS 


nO 


RD_PNTR 

AOLD™: ve€TOR (10), 

SCA-HOLD : VECTOR CSCA/SIZE), 
COUNTER; 


‘Assume header is numbered (counter will be shown). 
SHOW COUNTER = TRUE; 


'Skip spaces and tabs before the text. 
RSKIPS (IRA); 


‘See if there is enough room on the page. 
GTPC (.TEST_PAGE_AMOUNT) ; 


'Now, force the paper to be positioned as it should. 

‘The reason for forcing it, rather than allowing it to happen 
the "normal tO hat the user eey have said something such 
‘as ''.NUMBER INDEX"’, which, by definition, does not take effect 
‘in the middle of a page. By forcing the paper to be positioned, 
! HEADER LEVELs that would be forced onto the next page 

qanywey can get influenced by commands such as just mentioned. 


‘Generate the specified number of Lines before the header text. 
GCSKIP (.LINES_BEFORE); 


'If at the top of any page, output the page number. This is being done 
‘because of problems with the the design of RUNOFF. NEWPAG won't output 
'the page number until this header text forces a title to be generated, 
twhic om be too late in this case. 

iv (.BRN_OPEN AND .PHAN_TOP_PAGE) 


If .PHAN_TOP_FIRST 


RIF FLIP ZTHEN 
PUTTPG (PAGEN, FLIPSK_TOCPAG) 


PUTTPG (NPAGEN, FLIPSK_TOCPAG); 
ELS PUTTPG (PAGEN, ~1) 
PUTTPG (NPAGEN, -1); 


! If creating a binary table of contents file, write out the counter and 
el epl ey descriptor. 
F .BRN_OPEN 


ZELSE 


2FI 


~ 
= 
m 


‘User is generating a table of contents. 


watebticeaitie — 
Page 6 
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THOR 0/P module for processing HEADER: figure, table 16-Sep-1984 01:20:29 AX-11 Bliss-32 V4.0-74 
¥O4~000 Module Level Declarat ont ’ 12-808- 1382 94:59:94 RUNOFF. RCJOUTHDR.BLI: 
63 9 PUTCNT (.COUNTER_MAJOR_TYPE, 
64 . COUNTER-MINOR-TYPE, 
65 EOUNT —VALUE ! The actual number. 
66 3 ~COUNTER-DISPLAY_ CODE i How to display the number. 
4 4 . COUNTER-PRE_STRING_LENGTH, i 
68 95 - COUNTER _PRE_STRING PTR, ! String before the number. 
, “POST_STRING_LENGTH, i 
9 9 COUNTER-POST_STRING_LENGTH ' 
4 2 ) COUNTER POST STRING PTR ! String after the number. 
7 $3 ' 
7 0 ‘Save pronation information 
74 3 USH_SCA; ‘Save the SAVEd i. bits. 
75 4 : INCR7I FROM 0 TO SCA_SIZE - 1 DO 
7 0 SCA_HOLD C.1] = .SCA C.1); 
7 404 'Save Left margin; it might be used if centering and wrapping. 
78 405 HOLD_LM = .SCA_LM; 
79 rt 'Save IRA ang RHAR 
80 040 INCR I FROM 0 TO 10 = 1 09 
81 0408 IRA_HOLD C.1] = .IRA C.1); 
8 0409 HOLD_KHAR = .KHAR; 
8 0410 '+ 
0411 ! If either (1) this head will become an autosubtitle or (2) user is creating a 
Belg ! BRN vile then we must scan the text twice. The first time we scan it at full 
041 ! width, 1 6 characters, for subtitle and/or TOC. If the subtitle actually runs 
Bete } wider than the current right margin, however, we truncate it and append ‘'..."'. 
Bei$ IF .AUTOSUBTITLE OR .BRN_OPEN 
41 THEN 
Belg BEGIN 
36 0 SCA_PRESCAN = FALSE; ‘A ';' does NOT terminate this command. 
421 SCA_RSKIPS = TRUE; ‘Ignore multipie spacés and tabs. 
04 § SCA_FILL = FALSE; 
04 SCA_JUSTIFY = FALSE; 
0424 ‘Set right margin big to catch long headers. 
0425 SCA_LM = 0; 
04 6 SCA-RM = 150; | 
4 SCA_DO_IND = FALSE; Ignore indexing for subtitle/TOC scan. 
be 5 'Make a subtitle out of this header, if that's what the user desires. 
0430 'The routine TITLES, which normally processes 
1 'titles/subtitles, contains the necessary logic. 
5 4 § Hag COTE TLE 
8 434 ‘Collect header text in subtitle buffer 
08 . = BEGIN 
09 4 LOCAL 
19 4 ? HOLD _NBITS; 
\ 3 4 'Set up case rules for the header text. 
1 rt 6 SETCAS (.CAPTION_CASE); 
15 ri} 4 'Use LITLES to get the subtitle. 
1g 43 4 TITLES (1); 
1 444 & 
8 445 & ‘Temporarily switch back to the subtitle TSF 
1 0446 4 HOLD_TSF = .TSF; 


Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Fe Se Ge Fe Ge FF Ge Ge Ge Ge Ge Fe Se Se Ge FF Se Se Se Se Se Se Se Se Se Ss Ge Se ee SPS Se Fe Se Se Se Sees 


THDR O/P module for processing HEADER: figure, table 1b-50 Sep-1 9 AX-11 Bliss-32 V4.0-74 P 
vo4 Module Level Det leration 3 . =300 138% 9}: 89; $3 RUNOFF .SR REIOUTHD R.BLI; _ “5 
re! ; TSF = SBTTSF; 
449 & ‘Carry over underlining/bolding, etc, as specified. 
4 4 TSF_NBITS = . TSF "NBITS©AND “MLO. CO_NBITS; : 
4 4 'Return to the actual TSF 
‘ ? ? TSF = .HOLD_TSF; 
2 5 END; 'End of autosubtitle processing. 
i IF .brn_open 
dy GIN 
rt} a ee BEG 
461 4 ie Is this ynoce an pang KUKR. Looks Like it does nothing. 
66 4 Rest re RA and 
te, A KALE EA 
= 
8 465 4 
39 ret 4 vonae” i A an 0 TO SCA_SIZE = 1 DO 
? ret 4 2 A C.1] = .SCA_ROLD C.1); 
¢ 0469 4 POP_SCA 'Restore the SAVEd SCA bits. 
0470 4 peeve e scanning information for another scan. 
2 be 53 ? ave the SAVEd SCA bits. 
6 0473 4 INCR I = 0 10 SCA. size - 1 D0 
7 0474 4 sta DC. +t A C.1); 
8 Bor? 4 'Save trae and 
9 476 4 iNCR I FROM O16 - 100 
50 ge7 4 IRA PROUD . %5 = .IRA C(.1); 
51 478 4 ‘ee ae ee eee eo ee 
26 ot 44 ? !Going to TOC, may or may not be an auto-subtitle. 
54 ott 4 sca_prescan = false; 'A °;* does NOT terminate this command. 
55 Hy 4 sca_rskips = true; ignore multiple spaces and tabs. 
56 Bee 4 sca_fill = false; 
57 484 4 sca_ ustify = false; 
58 0485 4 0; 'Set right margin big to catch long headers. 
59 ret] 4 sca_rm = 150; 
4 sca_do_ind = false; ‘Ignore indexing for subtitle/TOC scan. 
1 rt +3 4 sca_fc_case = true; 
¢ 4 sca_fc = true; 
39 ? khar = .hold _khar; 
5 4 4 ‘Switch to the Footnote TSF and MRA (which are not otherwise used in headers) to 
rt ? ‘collect the header information for the TOC. 
495 4 +. =nre = ares 
36 4 = foom 
497 & hold. tsf = rt ts 
38 ? tsf = footsf; 
5 & ‘Before patetel tetap Line A tout Gosgrtptors. it is ngcospory te to Pas a 
2 1 4 jceces the maximum [eng . e footnote MRA, It clobbered 
§ 4 i{gotnese : have been processed $9 far. See the comments in FNONLY oreund 
5 4 45 for the detailed justification. 
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704-000 Module Level Declarations = bam tioe hs rit Mo et et od pr Ac an Page 43 
fs_maxsize (mra) = s_fmra; 
'Now initialize the text descriptors. 
fs_init (mra); 
INTR i FROM_O 19 tsf_size - 1 DO 
tsf C.iJ] = 0; 


'Set up bolding and underlining, if requested. 
7 : 95_bid) " 


InN 
—~ 


~SSRNear 


Sen wr 


IF (.caption_is_bold AND .sca_ 
THEN 
BEGIN 
$8 sca_bld = true; 
9 sca_wrd_c_bld = true; 
END; 
FF ng Sant ton..18_undort ined AND .sca_do_und) 
BEGIN 


sca_und = true; 
sca_wrd_c_und = true; 
END; 


' Set up case rules for the header. 
setcas (.caption_case); 

! Scan 150-wide into footnote MRA. 
scant (); 

endwrd (false, false, false); 

! Write header text to .BRN file. 


'e® Needed for FLIP Level 1 support. The result is that PUTTXT is not called 
! for .HE, .HF, .HT commands if /DEVICE=FLIP was specified. 


Ss SSssss 
GESRANLISSSLEAEANLS 


3& 


' 
i'21F FLIP XTHEN 
He IF (.gca_op_dev NEQ op_dev_flip) 
ii 
He 
‘IF I 


'ee 


(.caption_minor_type LEQ min_hl_txt_u) 
THEN 


puttxt (.fs_length(foomra), 
-fs_start(foomra), 
-caption_major_type 
-caption-minor-types; 


'Switch TSF and MRA back. 
aS sett 
sf = .ho sf; 
END; - 'End of TOC-only processing. 


et a ss ts 2 4 
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PUPVDVLUPVLVLVIULUSVIUSVSIUIUSVSUSUSVIUSVSVSUSVSVIUSVSUSUSVSUSUSUSUSUS SUSI ISOS IOS ISIS 


BERR E SE FUMIO PIPPIN 2 


‘Restore IRA and KHAR. 

INCR i FROM_O 10 10 = 1 op 
ira C.i] = .ira_hold C.i); 

khar = .hold_khar; 


END; ‘End of subtitle-or-TOC processing 
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INCR I FROM_O TO SCA size 1): dO 
SCA C.1] = .SCA_AOLD C.1); 
SCA; _{Restoré the SivEd SCA bits 
aa = AGS the header even if not filling text. 
“PRE CAN ; “FALSE: does NOT terminate this command. 
RSKIPS RUE; 
4 
4 
4 


= 
33 
3s 
S2 


ri s 
4 
d es Stat 
is G5 ie : 
rr 8 SCA_ = Henive multiple spaces and tabs. 
44 ! 
44 § 'Set up bolding and underlinin NP ce vested. 
444 i IF (, caption. i bold AND .sca "9o_bl ‘ 
445 a THEN 
44 7 BEGIN 
44 aoe sca_bld = true; 
ret ie sca_wrd.c_bld = true; 
636 Fea Rit, yy sl atl pr Sag cr 
C on_is_underline -$ca_do_un 
458 378 THEN’ > - 
45 580 BEGIN 
454 581 sca_und = true; 
486 : ¢ sca_wrd_c_und = true; 
45 584 . 
458 bene ! Generate the number for the header title if not turned off. Note 
$23 0367 the following Line depends on the values of the Literals in TOCRTY. 
461 8 show. counter = NOT ((.caption e*eer type MOD 3) EQL 0); 
re | 89 Big pencer sng the header, pull in Ehe margins so that the caption 
ret i Looks more eliberately CW AE] 


IF .caption_is_centered 
HEN 


BEGIN 
sca_lm = .sca_im + fe 


SESESeseeseseS 
GRER ISS SOROS SS 


sca_rm = .sca_rm - 
470 END; 

471 

rtf aie counter 

rte : User didn't turn off the numbering, so generate the header counter. 
rth : Generate the counter in using the case rules for the caption. 

rth} outctr (.counter_minor_type, .caption_case); 

? : Put the counter into the output buffer. 

4 $ a next (fs01) = .fs_start (fs01); 

4 10 INCR i FROM 1 TO .fs~Length (fs015 DO 

4 11 BEGIN 

485 \¢ LOCAL 

4 1 temp_char 

4 14 fs_rchar™ (tsi, temp_char); 

4 15 endchr (.temp_char); 

4 O16 : 

4 1 
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} oa the string so the spaces_after will not get underlined (if 
! in effect) 
endwrd (false, false, false); 


! Insert spaces after the Sgyrter if user didn't say BREAK or BETWEEN. 
Do not put out more than spaces regardless of what the user said. 
iF NOT (.break_before_caption OR (.lines_between GTR 0)) 
BEGIN 
LOCAL 
sca_hold_c_bldun, 
sca_hold_ac_blun; 
! ENDCHR carries over ag 4 ag rules even for spaces. 
We must turn off these bits before we add the extra spaces. 


sca_hold_c_bldun = .sca_wrd_c_bldun; 
sca_ hold ac_blun = .sca_wrd_ac_blun; 
Ue) RON 1 TO (MIN (lcounter_spaces_after, 75)) DO 


sca_wrd_c_bldun = 0; 


sca_wrd_ac blun = 0; 


! Restore the SCA bits. 
sca_wrd_c_bldun = .sca_hold_c_b 
gca.wrd_ec_blun = .sca_hold_ac_ 


And now end this ‘word’. 
endwrd (false, false, false); 


! If the user wants a break before the caption, we must 
: make any adjustments if not flush_left. 


if gception.{s_contered OR .caption_is_flush_right 


BEGIN 
4 4 breskpefore_caption OR (.Lines_between GTR 0) 


tsf_adjust = 
TIF .caption_is_centered 'Center the counter. 
HEN (.sca_rm = (.tsf_ext_hl))/2 : 


iForce the counter right. 
-sca_rm - .tsf_ext_hl); 


BEGIN 

! No break to be done so we must set the left margin so 

: wrapping will left justify on the caption left Bergin. 

hold_lm = .tsf_ext_hl; !Remember for use after SCA is restored. 
sca_(m = .tsf_éxt_fl; 
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+ 

! The header is flush-left. If the caption is to immediately follow, set the 
left margin so that following text will wrap properly. 

ELSE 

we aren't doing a break after the counter, we must pull in 

e left margin to prevent writing over the counter. 

OT (.break_before_caption OR (.Lines_between GTR 0)) 


t heft sergin beyond the coynter so if the caption wraps, 
will be nicely justified with itself. 


sca_lm = .tsf_ext_hl; 


i 
iF 
TH 
' 
' 


aa 'End of code to generate header counter. 
i) 


ilf we are not generat ine a number, then the first character 
;scanned should be the first character in this MRA. 


sca_fc = true; 


i If the header is other than flush-left and user asked for break or 
! some Lines between, then we have already computed amount to shift it; 
! we now put it out on a Line by itself. 
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9¢° Line_pend = 1; ‘Until we throw the header, a line is pending. 
egores before_caption) OR (.Lines_between GTR 0) 
J 


BEGIN 
outn 


i 0; ' Put out the counter. 
acsk p (.lines_between); ! Skip the number of Lines requested. 
! Remember number of characters generated for use later. 
gen_char = .tsf_int_hl; 


! Set up case rules for the heading. 
setcas (.caption_case); 


! Tell SCANT that the first character of the header is the first 
' character of a word. (ENDCHR turned this stuff off before.) 
sca_fc_case = true; 


scant (); 'Go get the caption. 


! SCA_WRD_CPEND equals rintes IFF there was a trailing space/tab 
' aftér the text. In such a case ENDWRD has already been gatied, 
! Calling it again would have the effect of forcing an add 

' space out into TSF/MRA. 

IF .sca_wrd_cpend NEQ rintes 


tional 


BLS endwrd (false, false, false) 
IF .sca_wrd_lst_und EQL 0 


se 


oo 
oO 
uw 


co~NIO* 


333 
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AND ! This fixes null-text-on- 
rHefieenatr dn lst.op GTR 0 ! run-in-header bug. 


' Chop off trailing spaces/tabs. When doing so, also back up 

! intra-line pointer and counter appropriately. If justification 
was in effect, also cancel the yest tticat on mark that got writ- 
i 


uP aw AS) 


ten onto the ° 
bectne that trailing spaces that are underlined are not discarded. 


LOCAL 
chars_to_drop; 

chars_to_drop = .sca_wrd_lst_sp + 
CIF .sca_justify 

THEN 


ELSE 


fs_length (mra) = .fs_length (mra) = .chars_to_drop; 
fs_next (mra) = ch$plus (.fs_next (mra), -.chars_to_drop); 
sca_wrd_(st_sp = 0; 


' Restore previous scanner rules and set standard rules. Usually, it 

! suffices to restore the prey ious scanner rules, and that's all. That 

! works because after ENDWRD is gelied there is apthing left in the SCA 
! that needs to be remembered. Simply restoring the SCA is then 

! equivalent to a type of block structure. However, there is one case 

! when the pointer to the NEXT word needs to be carried over; that is 

! when the text of the header is too long for the current Line, 

! and it's a runin header. In that case, if the pointer is not carried 

! over, generating the ‘-" after the text will not work, and w 

' actual cause an internal logic error (RNFILE) when ENDWRD eventually 
: led by some other routine, later. 

‘Remember start of next word. 
tn ‘Remember last-space info. 


C.iJ = .sca_ 
‘Restore 


sca_wrd_lst_sp = .hold_lSt_sp; ‘Restore last-space info. 


! For FLIP, tell LOHORI to generate a TOCHL record (for .HL's only 
! == not for .HE, .HF, .HT commands). 


; es for now. 
ZF FLIP XTHEN 
sa IF .brn open 
i : en“ caption_minor type LEQ min_hl_txt_u) 
sca_header = true; 


OOO NAUE WN OS OD NAUEWN  O ODNAU EWN OOONOAUNE WN OVOONO 


RFI 


! Differentiate between headers that are on a single Line, and 
: those for which a ‘=" has to be generated with following text 
' funn ng on. 

. gceot on_is_run_in 


BEGIN 
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y04-000 Module Level Declarat ont : 14-Sep-19 4 93:59:43 RUNOFF .SRCJOUTHDR.BLI; (4) 
; 66 789 IF_ .gen_char NEQ .tsf_int_hl 
; 66 790 THEN 
> 664 791 ! There was some text after the counter, so generate the ‘- '. 
; 665 re 4 BEGIN 
; 66 0793 4 endchr (ZC° '); 
; 66 he 4 endchr (%C'="); 
; 668 795 4 endwrd (true, false, false); 
; 669 0796 4 END 
; 670 0797 3 END 
3; (ofl 0798 ELSE 
: OF 0799 ' Not a ‘run-on' header. 
; 67 bane BE 
> 674 01 ! This section basically gytpurs the Last Line of the header. This 
> 675 Bans ! may also be the first (if only one Line long). What must happen here 
; 676 080 ' is if the header is flush-left, the last Line (if different from the 
3 Orr 0804 ! first, must start at the caption left margin. The same goes for cen- 
; 678 0805 ' tered captions if nobreak is in effect and if the caption is so long 
; 679 0806 ; ' that it wraps. Now if it doesn't wrap, then this section will output 
; 680 0807 ! the whole counter and caption. 
; 681 0808 3 : By using GCA_LINE_PEND, we may determine if this is the first Line output. 
: 68 0809 3 ! If a Line has already gone out, then SCANT has already ajusted the left 
; oar Baie 3 ! margin and no TSF_adjust is needed. 
3; 685 oes 3 ! If the header is other than flush-left, compute amount to shift it. 
: 686 0813 3 ! If user asked for a BREAK or had some LINES_BETWEEN, then the shift 
: 687 0814 3 ! for the counter has already been taken care of and this section 
3; 688 0815 ; ! is only for the caption, otherwise the shift is for the whole header. 
; 689 0816 IF .caption_is_centered oR -caption_is_flush_right 
: 690 0817 THEN 
; «4691 0818 IF .gca_line_pend 'NO Line thrown yet. 
> 692 0819 THEN 
3; 693 0820 3 tsf_adjust = 
> 694 0821 4 TIF .caption_is_centered ‘Center the counter/and/or caption. 
3; 695 0822 5 THEN ((.sca_rm - .tsf_ext_hl)/2 = 2) 
> 696 0823 4 LSE 'Force the counter/caption right. 
; 697 0824 4 -sca.rm = .tsf_ext_hl) 
; 698 0825 3 ELSE 
; 699 0826 4 IF (.break_before_caption) OR (.lines_between GTR 0) 
; 700 0827 ; THEN 
s Tol 0828 tsf_adjust = 
: 70 0829 4 (IF_.caption_is_centered ‘Center the counter/and/or caption. 
; 70 08350 5 HEN ((.sca_rm- .tsf_ext_hl)/2 - 2) !This is centered. 
: 704 0831 4 SE 'Force the counter/caption right. 
3 3 oes -sca_rm - .tsf_ext_hl); 
am. 8 
3 for Ste outnj (); ‘Force out the caption. 
: 708 835 ‘ 
3 a Hid gcskip (.lines_after); 
3; «6711 a3 sca_sect_empty = true; 'This section is empty now. 
i HS 320 Ri: 
3 «6716 841 'Set proper case conversion for remainder of section. 
3 oi? p 4g setcas (.gca_case); 
: 9 44 1 END; ‘End of OUTHDR 
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00000 PP_SCA: . 


OFFC 00000 


9E 00002 


ata cei ots aE ke aes 
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1 
RUNOFF ..SRCJOUTHDR.BLI; (4 


OUTHDR O/P module for processing HEADER: figure 
table 

\v04-006\ 

SOWNS ,NOEXE,2 


RINTES, S$_FMRA, FOOMRA 
FOOTSE FSO1, ECC 


§ 
RSKIPS, TITLES 
SCODES ,MOWRT,2 


OUTHDR, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 0276 


=424(SP5, SP 
#1, SHOW. COUNTER 


#1, RSKIPS 
TEST_PAGE_AMOUNT 
#1, GTP 
#0, OUTCRG 

LINES BEFORE 

#1, GCSKIP 

BRN OPEN. 4$ 
PHAN, 3$ 

PHAN+24, 1$ 


1 
#1, -(SP) 
PAGEN 


#1, -(SP) 


- PP_SCA 
4, PP_SCA+4 


eee ere Tere re rere re ere rere rererererererererererererere re rere ray 
oO 
A 
~ 
a 


ascatl 
ascAr108. PP-SCA+8 
@SCA+112, PPTSCA+12 


C 
EC 
PACXXX, PUTTPG, PUTCNT 
PUTTXT, SCANT, SETCAS 
} 
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v04-000 Module Level ber Larationt ° 1 ~3een 138i 04:60:43 RUNOFF .SRCJOUTHDOR.BLI; ° a | 
10 AA FC B9 D a2 MOVL asca+!i6, pp _$carlé ; 
14. AA B9 D A MOVL  @SCA+120, PPTSCA+ : 
18 AA 4 B9 D AC MOVL  @SCA+124, PPTSCA+24 : 
1C AA 8 B9 DO 000B1 MOVL  a@SCA+1 8. PP-SCA+ 3 : 
6 AA ¢ B9 DO 000B6 MOVL  aSCA+132, PPTSCA+ : 
4 AA 10 B9 DO 0008 MOVL  @SCA+1 6. PP"SCA+ 6 : 
8 AA 14 B9 DO 000C MOVL  a@SCA+140, PPTSCA+4 : 
C AA 18 89 D bo¢ MOVL  @SCA+144, PPTSCA+4G4 : 
0 D4 OOOCA “Tey: + 040 
6E40 88 A940 D b0¢¢ 5$: OVL Scat, $CA_HOLDLI + 040 
F2 50 O000005F 8F F3 000D AOBLEQ #95 $ : 
58 FC 89 D SODA OVL a@SCA+116, HOLD_LM + 0405 
0 D4 ODE CLRL + 0407 
D8 AD4O 00000000GEF 40 09 OOEO 6$: OVL IRA“4C1), IRA_HOLDCI) + 0408 
F2 50 09 F3 OOOEA AOBLEQ # : 
55 000000006 EF D OOEE OVL HAR, HOLD_KHAR + 0409 
07 58 AC €E8 OOOF BLBS AUTOSUBTITCE. 7$ + 0416 
03 5c aC E 00F9 BLBS = BRN_OPEN, : 
0166 31 OOOFD BRW 19 : 
34 AD D4 9190 7$ CLRL SCA+172 + 0420 
54 AD 01 D0 0010 MOVL #1, SCA+204 > 0421 
FO B9 D4 90107 CLRL  aSCA+104 + 0422 
EC B9 D4 OO10A CLRL  aSCA+100 + 0423 
FC B9 D4 0010D LRL asca+it6 + 0425 
00 89 96 8F 9A 90119 MOVZBL #150, @SCA+120 + 0426 
30 Ad — 08 8A 0011 1CB2. #8, SCA+1 : 0427 
2F $8 =6AC ES 00119 LBC  AUTOSUBTITLE, 8$ : 0432 
3c = AC. sC«#DD «00110 PUSHL CAPTION_C + 0440 
000000006 EF 01 FB 01 0 CALLS #1, SETCA : 
£ 01 CE 00127 MNEGL #1, -(SP) + 0443 
000000006 EF 01 FB O012A CALLS #1. TITLE ; 
3 6B 00 01 1 MOVL TSF, HOLD_TSF + 0446 
6 000000006 EF 3 0134 MOVAB SBITSF, TSF : 0447 
0 6B DO 00138 OVL TSF, RO : 
51 000000006 EF D2 001 : MCOML HLC4+12, R1 > 0450 
08 Ad 1 CA 0014 BICL2 R1, 8(RO) ; 
68 53 09 00149 MOVL HOLD TSF, TSF > 0453 
03 5c AC ’ O14C 8S BLBS §_ BRN_OPEN, 9$ : 0457 
0176 1 00150 BRW 17$ ; 
50 04 00153 9$: CLRL so] : 0463 
00000000GEF 40 D8 AD40 D9 019) 10$: MOVL 1RA_HOLDEII, IRA-41) > 0464 
2 50 09 F3 0015F AOBLEQ #9,71, 10$ ; 
0 dd 0163 CLRL + 0466 
88 A94 6€40 DO 00165 11$: MOVL SCA_HOLDE12. SCACI) + 0467 
F2 50 0000005F 8F F3 001 AOBLEQ #957 I, ; 
Ec 89 6A DO 001 MOVL PP_SCA, aSCA+100 ; 
FO. «BY 4 AA 00 0017 MOVL § PPTSCA+4, a@SCA+104 ; 
Fe BY 8 AA DO 0017C MOVL PPTSCA+8. aSCA+108 : 
F8 BY ¢ AA DO 00181 MOVL  PPTSCA+12, aSCA+112 ; 
FC OY 10 AA DO 001 MOVL PPTSCA+16, asca+!1é ; 
00 «89 14 AA 00 001 MOVL § PP™SCA+20, @SCA+1 : 
04 B89 18 AA DO 001 MOVL PPTSCA#+24, @SCA+104 : 
08 B9 1¢ AA 00 0019 VL = PPTSCA+28, aSCA+1 : 
C 69 0 AA DO 0019A MOVL §PP™SCA+32, aSCA+1 ; 
10 B89 4 AA D O19F MOVL  PP7SCA+36, aSCA+] ; 
14 B89 8 AA DO 001A4 MOVL  PPTSCA+40, aSCA+140 : 
18 «89 C AA DO 001A9 MOVL  PPTSCA+44, aSCA+144 ; 
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EC DO OO1A 0, PP_SCA 
4 AA FO }6©B9 «=O 0018 MOVL a@SCA+104, PPTSCA+4 
8 AA F4 B89 DO 001B MOVL  a@SCA+108, Pp~ScArs 
: AA F8 B9 DO 001BC MOVL  @SCA+112, PPTSCA+ 
10 AA FC} =6©B9 «=O 001C1 MOVL  @SCA+116, PPTSCA+1 
146. AA 6 B89 DO 0016 MOVL  @SCA+120, PPTSCA+ 
18 AA 4 B89 DO O01C MOVL  a@SCA+124, PPTSCA+24 
1C AA 8 B89 DO 001D MOVL  aSCA+! 8. PP"SCA+ : 
0 AA ¢ B9 D 1D MOVL § @SCA+132, PPTSCA+ 
4 AA 10 B89 DO OO1DA MOVL  a@SCA+1 6. PP"SCA+36 
8 AA 14 B89 DO OO1DF MOVL  @SCA+140, PPTSCA+40 
C AA 18 8? DO 001E4 MOVL  @SCA+144, PPTSCA+44 
D4 O01E9 CLRL 
6E40 88 A940 09 1€B 12$:  MOVL  SCACIJ, S$CA_HOLDCIJ 
F2 50 0000005F i F3 OO1F1 AOBLEQ #95, 1. 12$ 
0 D4 001F9 ae ae 
DB AD4O 00000000GEF40 D9 Ore 13$: OVL IRA=4C1], IRA_HOLDCIJ 
F2 50 69 F3 0020 AOBLEQ #9, I, 13 
34 AD D4 00209 CLRL CA+1?2 
54 Ad 01 00 00 ifs MOVL #1, SCA+204 
FO B89 D4 00 19 CLRL SCA+104 
EC B9 D4 0021 CLRL  aSCA+100 
FC} 6©B9 «(D4 00216 RL SCA+116 
90 B9 96 8F 9A 00219 MOVZBL #150, aSCA+120 
0 Ag 08 8A 00 3 CB2 » SCA+1 
58 AD 01 dO 00 1, SCA+208 
ic Ad 01 DO 00226 MOVL #1, SCA+148 
000000006 EF 5 DO 0022A MOVL § HOLD_KHAR, KHAR 
4 000000006 EF D0 00231 MOVL MRA, ~HOL 
000000006 fF 00000000G_ EF i 00238 MOVAB FOOMRA, MRA 
3 6B DO 00243 MOVL TSF, HOLD_TSF 
68 990000006 EF 9E 00246 MOVAB FOOTSF, TS 
50 000000006 cE DO 00240 MOVL MRA, RO 
08 AO 000000006 SF 00 00254 MOVL as FMRA, 8(RO) 
0C AO D4 00 5¢ CLRL  12TRO) 
60 10 AO i 025F MOVAB 16(RO), (RO) 
04 Ad 60 DO 00263 MOVL (RO), 4(RO) 
50 D4 00267 ce ae 
00 840 D4 00269 148 CLRL  aTSFCI) 
F8 50 27 F300 6p AOBLEQ #39, I, 14$ 
oc 46 AC E9 00271 BLBC CAPTION_IS BOLD, 15$ 
08 30 9 0 75 BLBC SCA+168, 15$ 
20 a9 01 79 81 $82 Wi, SCA+152 
4G AD 01 9 7D BISB2 #1. SCA+196 
0D 50 aC E 115$:  BLBC CAPTION 1s UNDERLINED, 16$ 
08 30 Ad 1 €1 5 BBC #1, SCAT $8. 16$ 
20 «Ad ‘ : A B1 $82 a3. SCA+1 
40 AD BISB2 #2, SCA+196 
3c)6=OACsC#@# 16$:  PUSHL CAPTION CASE 
900000006 EF 1 FB 0029 CALLS #1, SETCAS 
00000006 ‘EF 0 FB 0029 CALLS #0. SCANT 
— 7C OO2A CLRO 20. = ( §P) 
43 D4 002A CLRL = = (SP) 
000000006 cr 03 FB OO2A CALLS #3, ENDWRD 
é 34 AC 7D OO2A MOVG § CAPTION_MAJOR_TYPE, -(SP) 
900000 0G EF DD PUSHL FOOMRA 
0000006 EF 0D 0028 PUSHL FOOMRA+12 
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THDR 0/P module for processing HEADER: figure, table 16-Sep-1984 :20:29 AX-11 Bliss-32 V4.0-74 P 1 
y04~000 Module Level Declarat ont . 1278681382 94:59: 4 ERUNOFF SRE OUTHDR.BLI; ve 3 
9000000 G EF 4 Ff BF CALLS #4, PUTTXT ; 
G EF D ¢ MOVL § HOLD_MRA, MRA : 0551 
D c¢ MOVL § HOLDTSF, TSF + 0552 
D4 OOOCR 17$:  CLRL : 536 
000000006EF 40 D8 AD40 OD D1 18$: OVL 1RAHOLDE II, IRA-4(1] + 055 
000000006 EF D DF VL. HOLD_KHAR, KHAR + 055 
6 D4 EG 19$ CLRL : 056 
88 A94 6640 D £8 20$ MOVL SCA-HOLDE II, SCACIJ : 056 
F2 50 0000005F BF F s AOBLEQ #95> I, 208 : 
EC 89 6A D F MOVL  PP_SCA, @SCA+100 : 
FO. «BY 4 AA D FA MOVL  PPSCA+4, @SCA+104 : 
FA BS 8 AA D FF MOVL PPTSCA+B. @SCA+108 : 
F8 BS ¢ AA D 04 MOVL PP“SCA+12, ascarii2 : 
FC BY 10 AA D 09 MOVL PPTSCA+16, @SCA+11 : 
06 89 14 AA D 0 MOVE  PPTSCA+20, a@SCA+120 : 
04 89 18 AA OD 1 MOVL  PPTSCA+24, @SCA+124 : 
08 89 1¢ AA OD 1 MOVL PPTSCA+ 8. ascatl 8 : 
0c 89 6 AA DO 00310 MOVL  PP™SCA+32, @SCA+1 : 
10 89 4 AA DO 00 é MOVL  PPTSCA+ 6. aSCAtl 36 : 
14 B9 8 AA 00 00 MOVL PP-SCA+40, @SCA+140 : 
18 89 C AA 00 0032C MOVL PPTSCA+44, @SCA+144 : 
FO OB 01 DO 00331 MOVL = #1 ascarios + 0565 
34 AD D4 00335 CLRL = SCA+1 > 0566 
54 OAD 01 DO 00338 MOVL #1, SCA+204 : 0567 
0c 4C AC €E9 0033C BLBC  CAPTION_IS BOLD, 21$ : 0571 
08 30 «Ad E9 0340 BLBC SCA+168, eqs : 
20 Ad 01 0344 BISB2 #1, SCA+152 : 0574 
4C A 01 8 0 48 BISB2 #1, SCA+196 : 0575 
0D 50 ac E 4C 21$:  BLBC CAPTION 1s UNDERLINED, 22$ : 0578 
08 30 Ad 01 a 035 BBC #1, SCAT 68. 22$ : 
20 «Ad 08 8 0 5 BI $82 m3. SCA+1 : 0581 
4C AD 0 88 39 BISB2 #2, SCA+196 : 0582 
7E 00 38 = AC 1 7A 0035D 228 EMUL #1. CAPTION _MINOR_TYPE, #0, -(SP) : 0588 
51 51 BE 03 7B 0036 EDIV #3, (SP)+, R1, RI : 
50 04 00 CLRL = RO ; 
51 D3 036A TSTL = R11 : 
12 0036C¢ BNEG 23% ; 
D6 00 § INCL ss 3 
52 D 23$:  MCOML RO, SHOW COUNTER ; 
5 40 AC D 7 MOVL  CAPTION_TS_CENTERED, R7 : 0592 
08 57 € 7 BLBC 4 ; 
FC 9 CO 0037A ADDL2 #3. aSCAtl > 0595 
00 89 ¢ 7 SUBL2 #3. a@SCA+12 : 0596 
5 24$:  BLBS  SHOW_COUNTER, 25$ : 0599 
OOEE 31 BRW 40$ ; 
3c)0COACsC## 25$ PUSHL  CAPTION_CASE > 0605 
14 aC DD PUSHL  COUNTER-MINOR_TYPE : 
itt caet 0006 EF 09 3 ROUT? SOI CESOTeG : 0609 
gS istdaittits gE D AQ MOV rsGy. fs R3 : 0610 
2 04 A CLAL 3 
1€ 11 003A9 BRB $ ; 
50 G FF 9A 26$ MOVZBL @FS01+4, TEMP_CHAR > 0614 
ee mee : 
+4 DD 003BE PUSHL TEMP_CHAR > 0615 


oom 
rmnrw 
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Ww 
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SVN OMOOWMNOD 


—— 43 © 
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SOOoooooooooo°cooo 


COOCOoo 


FP ae oe oe ae ae et oe oe et oe ae ek ek ee ee ee ee ee ee) 
> oo7g S oO 


PMN FS OOF VO P PPP NO VNIUUMON OO “MDOP OOM FP UIO FP uUIO~ 


FOONOOPNONDION ODO NAMM "QUIS" WFAENOOCOS 


NO™M—OMIO -9GV OM 9 29 N22 OMO-GDMIOMMTNO NAAT THNOWO—9 O—-VOMMMao-—-VOo TOV 
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a. 
#5) ENDWRD 
LINES BETWEEN 


R4 
BREAK BEFORE CAPTION, as 

40, #2, SCA+196, SCA_HOLD_C_BLDUN 
#0. # SC 


C 
° SCA+20 A-HOLD_AC_BLUN 
¢ UNTER SPACES_AFTER; R 


2 
34, nz 
1$ 
#3, SCA+196 
} $CA+200 
#1, ENDCHR 
SCA_HOLD_C_BLDUN, #0, #2, SCA+196 
SCASHOLD-AC_BLUN, #0, #2, SCA+200 
(SP) 
#3, NDWRD 
CAPTION_IS_FLUSH_RIGHT, 38$ 


f 
BREAK_BEFORE CAPTION, 34$ 
LINES“ TWEEN 


TSF, _R1 
R7, 35$ 
4(RO), aSCA+120, RO 
#2, RO 
@SCA+120, RO 
6¢R1) 
4{R0), HOLD_LM 
9$ 
R4, 41$ 
TSF, RO 
4(RO), @SCA+116 
41$ 
#1, SCA+148 
#1, GCA+224 


oa 
BREAK BEFORE CAPTION, 42$ 
L NES“BETWEER 


4(RO) 
RO, 4 


#0, OUTNJ 
1 Ned BETWEEN 
#1, GCSKIP 


———— 
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THOR O/P module for processing HEADER: figure, table 14-Sep-1 9 AX-11 Bliss-32 v4.0-7 
vb6ebG0 Module Level Declarat ont 9 12: or 1382 9}: 89: $3 RUNOFF .SRCJOUTHDR. Bt: 
54 0 BB DO 004 MOV @TSF, GEN_CHAR 
9° aC DD tor PUSHL CAPT Thon CASE 
900000006 EF FB Ang CALLS #1, SETCA As 
gonnntte ff Se Ritts fae Beant 
itt G Er 00A0 8 of 4B4 CMPL Sches8On WRINTES 
D 480 BEQL  44$ 
—E 7C 004BF CLRO 20s = (SP) 
43 D4 4c} CLRL = = (SP) 
000000006 EF 9 FB 4¢ CALLS #3, ENDWRD 
; 11 004CA BRB 47$ 
00n¢ ¢ DS OO4CC 44$:  TSTL SCA+340 
A 12 0040 BNEQ 47$ 
00D4 c9 DS 004D TSTL SCA+332 
4 15 0040 BLEG $ 
95 EC 3 £9 0040 BLBC Ba 45$ 
0 DO 0040¢ MOVL 
; 11 0040F BRB 
D4 004E1 45$: CLRL 468 
51 50 0004 C9 C1 OO4ES 46$:  ADDL3 Sc40332, RO, CHARS_TO_DROP 
50 000000006 gf DO 004E9 MOVL 
oc Ao 1 ¢€ OO4FO SUBL CHARS” TO_DROP, 12(RO) 
04 AO 51 C2 004F4 SUBL CHARS TO-DROP, 4(RO) 
0004 C9 D4 OO4rS CLRL 
51 0080 9 09 O4FC 47$:  MOVL SAS 248, , HOLD_WRD_PNTR 
52 0004 ; v0 05 1 mOVL Scat 32, HOLD“LST~SP 
88 A940 6€40 DO 00508 48$:  MOVL bc -HOLDE J, SCACI} 
F238 ooonn0sr “ar FS BosaE "* ‘MOtea #9820, EEE: 
FO. BO 04 AA DO 0051A MOVL PP~SCASG™ setae 4 
F4 89 08 AA DO 0051F MOVL §§ PP7SCA+8, a@SCA+108 
FB «BY 0C AA DO 00524 MOVL PPTSCA+12, aSCA+112 
FC «BY 10 AA D0 00529 MOVL  PP7SCA+16, asca+!é 
00 «89 14 AA 00 005 MOVL PP7SCA+20, a@SCA+! 
04 89 18 AA 00 005 VL PPTSCA#24, @SCA+124 
08 89 1¢ AA OD MOVL § PPTSCA+28, aSCA+1 
C 89 0 AA OD MOVL §§ PPTSCA+32, aSCAtl 
10 89 4 AAD 4 VL PPSCA+36, a@SCA+] 
14 B9 8 AA D 0 4 MOVL PP-SCA+G » aSCA+140 
18 89 C AA OD 4C MOVL PPT™SCA+44. @SCA+144 
080 C9 1 D | MOVL HOCD -WRD_ BNTR, sCAs 48 
004 9 2 D 6 MOVL HOLD ScA+33 
5 48 AC E B BLBC ba rs * bun , 49$ 
00 «6B 34 b} 2 cCAPL gE N in aan Pt TSF 
0 oD é3 PUSHL # 
000000006 EF 1 FB CALLS #1, ENDCHR 
000000006 _ EF ° a3 " CALLS #1, ENDCHR 
F bb 00879 a 
000000006 _ EF 85 re CALLS #3, ENDWRD 
of 498: BBS oR 
ze 44 =AC ES 3 7 BLBC CAB LON. I§ FLUSH_RIGHT, 54$ 
000000006 EF E8 50$: BLBS  GCA+ T$ 
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; Routine Size: 


1500 bytes, 


05 


0 

51 00 i 
1 

51 3 89 
AO 

000000006 EF 
woneneare EF 
. a 


00000000G_ EF 


Routine Base: 
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SCODES + 0000 


984 13:67:87 — ERUNOFFeSRESOUTWDR:BL I: 


BREAK BEFORE CAPTION, 51$ 
JNES_BETWEER 


R ary 
4(RO) 
#2, Ri 
R1 


27R0) @SCA+120, R1 
Ri, 46 
#0, OUTNJ 


@SCA+120, R1 
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OOCGGCOWOOCOCOOOCOO 
7 
NOU 


co 
PUP DTIGIVIUIUIUIEN & 
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333: 
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OOOOCCoCCoOoooooooooooooo 
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MEWN 0 OONOUS WN —O 


Coco Oo OOo Oo NINN SIN 


COoOoooe 


LSSSLESARANLSSSIE 


-Sep-1 RUNOFF ..SRCJOUTHDR.BLI 
GLOBAL ROUTINE OUTCTR (HEADER_TYPE, HEADER_CASE) : NOVALUE = 
' 


lee 
: FUNCTIONAL DESCRIPTION: 


OUTCTR genecates (for header levels) a section number of the form 
.2.35... For Example-Figure-Table titles it generates a 
counter of the form Example 2-4: ... 


i FORMAL PARAMETERS: 


! 
' 
' 
' 
' 
' 
; HEADER_TYPE is the counter_minor type of this header; it indicates 
whether this i§ an HE or an E/F/T title. 
HEADER_CASE is the case rules for this header, indicating upper/lower case. 
i IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 
COMPLETION CODES: None 
| SIDE EFFECTS: None 
lee 
BEGIN 
OFFSET; 'As an own for debug purposes only*** 
LOCAL 
ENTITY_LEN jpength of ENTITY_TEXT. 
ENTITY-TEXT; 'Contains ‘Example ' or ‘Figure ‘ or ‘Table ‘ 


~ e'’. 
!ee OFFSET; ‘Offset into entity counter and display-code structures. 
FS_INIT (FS01); 
SELECT .HEADER_TYPE OF 
SET 


' 
CIN HL_INFJ : 


BEGIN 
If .PAGEN CSCT_TYP] NEQ 0 
THEN 


!This is a document divided into sections. 
FS_LENGTH (FSO1) = PACSEC (PAGEN, FS_NEXT (FS01)); 
INCR I rhen 1 TO .HLLIST CCL_INDEX] DO 
FS_WCHAR (750), BC" *)3 


END 
ELSE 


ESTLENGTH (FSO) = 2FS{LENGTH (FSO1) + PACXXX (.HLLIST C.1), FS_NEXT (FSO1), .HLDSP C.1 


$2 


a3 


DOOGQOOOCOGOOOSOOOCOOOSOOSCSoOSO 30 


DOOODOOOOOOOODODOOOOOOOOOONOONOO 
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'Not a 
EGIN 
F 
H 


——@ 
wm 


NGTH 


FS_LE 


RETURN; 

, END; 

CMIN EXAMP_INF J : 
BEGIN 
ENTITY_T 


ZIF german XTHEN 


LEAVE_CASE) 
FORCE_UPPER) 
FIRST_CAPS) 
ZELSE 
ZIF french XTHEN 
LEAVE_CASE] 
FORCE_UPPER) 
FIRST_CAPS) 
ZELSE 
ZIF italian XTHEN 
LEAVE_CASE) 
FORCE_UPPER] 
FIRST_CAPS) 
ZELSE 
LEAVE_CASE 
FORCE_UPPER] 
FIRST_CAPS) 
ZF MFI XFI 
TES); 


ZIF german XTHEN 
ENTITY_LEN = 8; 
ZELSE 


WWW RRR RRR RRR EERE REE EEE PUINNUNWWWIE EE EEUU RE EUR EP PW 


K 
raone ease 1986 44:07:81 
document divided into sections. 
gMeList CCLLINDEX] EQL 1 


: Special case for .HEADER LEVEL 1 
t output a subsection number of zero. 


N 
4 ho (FSO1) = PACXXX (.HLLIST C1], FS_NEXT (FSO1), .HLDSP [0J); 


OM 1 TO .WLLIST CCL_INDEX) DO 
GTH ( 


FSO1) = .FS_LENGTH (FSO1) + PACXXX (.HLLIST C.1J, FS_NEXT (FSO1), .HLDSP C.I 
HAR (FSO1, %C°.'); 


$ get an extra dot . 
GTA (FSO1) = .FS_LENGTH (FSO1) - 1; 
CHSPLUS (FS_NEXT (FSO1S, -1); 


EXT = 
(CASE -HEADER. CASE FROM LEAVE_CASE TO FIRST_CAPS OF 


: CHSPTR (UPLIT (‘Beis 
: CHSPTR (UPLIT ("BEI 
: CHSPTR (UPLIT ("Beisp 


: CHSPTR (UPLIT  Tuesple tii 
: CHSPTR (UPLIT ("EXAMPLE')5; 
: CHSPTR (UPLIT ("Example')); 


: CHSPTR (UPLIT ("Example')); 
: CHSPTR (UPLIT (*EX 
: CHSPTR (UPLIT ("Example')); 
]_: CHSPTR (UPLIT (‘Example’) 
TERARPL 


: CHSPTR (UPLIT ("Example')): 


11 
AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJOUTHDR.BLI; 


so remove it 


! End of HL counter processing. 
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CHSPTR (UPLIT ( E')5; 
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099 


MEW SO COONS UN 


at eo 


APPIN WINNIE BB BEE REED 


ZIF french XTHEN 
ENTITY_LEN 


rf Fiat ton prey 
NTITY_LEN 
ZELSE 


ENTITY_LEN 
RFI RFI SFI ‘ 


OFFSET = EXAMP_OFFSET; 
END; 


CMIN_F 1GUR_INF) : 


BEGIN 
ENTITY 7 
(CASE 
Set” 
XIF german XTHEN 
LEAVE 
FORCE 
FIRST 
ZELSE 
ZIF french ZTHEN 
LEAVE 
FORCE 
FIRST 
ZELSE 
ZIF italian XTHEN 
LEA 
FOR 
FIR 
ZELSE 
LEA 
FOR 
FIR 
ZFI XFI XFI 
TES); 


ZIF german XTHEN 


ENTITY_LEN = 4 


ZELSE 
LiF french ZTHEN 
ENTITY_LEN 


ri ction Ma 
NTITY_LEN 
ZELSE 


ENTITY_LEN 
RFI RFI SFI 


OFFSET = FIGUR_OFFSET; 
END; 


1 
CMIN, TABLE INF J : 
BEGIN 
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RUNOFF .SRCJOUTHDR. BL: 


Se 


FROM LEAVE_CASE TO FIRST_CAPS OF 


tet 


: cHSPTR (UPLIT 
: CHSPTR (UPLIT 
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; -0 7 
RUNOFF .SRCJOUTHDOR.BLI; 
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; 1004 U ENTITY_LEN = 7; 
005 ZELSE ! The German & Engiish words are the same Length. 
006 ENTITY_LEN = 7; 
0 FI XFI 
0 OFFSET = CHAP_OFFSET; 
8 , END: 
° CMIN, EXAMP_INF, MIN_FIGUR_INF, MIN_TABLE_INF, MIN_APPEND_INF, MIN_CHAPT_INF] : 
9 BEGIN 
0 ‘Write the entity identifier (‘Example ' or ...). 
0 INCR I FROM 1 TO .ENTITY_LEN D 
ENDCHR (CHSRCHAR_A (ENTITY_TEXT)); 


'End the enitity with a space. 
ENDWRD (TRUE,FALSE,FALSE); 


‘Write the pre-counter string, if any. 
BEGIN 
La, 


LE 
PTR 


= .£ A_PRE_PTRI; 
F 
W 


T, ECCS 
T, ECCSH_PRE_LENJ; 
INCR L 
END; ; 
'If the document is divided into sections, write the chapter number and ‘-'. 


‘However if this is a Sseqeery aepenere beign processed, we don't 
‘want to ese up the section number. 


I 
FS_ CHAR_A (PTR)); 
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WWW AA AAAAARRONMNONMNONNININ 3 333 3 SSS OOO 
AAEWN OC DNOULWN OD DNOULWNR—ODO~ 
090909 SIN NINO AAPA AAOAOMUUIUUUUIUIUIUIULE BEEBE ERE ES PWIA 


FRR SSA NO ARUN ODO NO AP WN OOD NOE UNIO DO NOUR WN BODO SOUR URI OO 


7 IF .OFFSET LSS CHAP_OFFSET 
8 'This isn't a chapter/appendix 
9 IF .PAGEN CSCT_TYP] NEQ 0 
40 THEN 
041 BEGIN 
org FS_LENGTH (FSO1) = .FS_LENGTH (FSO1) + PACSEC (PAGEN, FS_NEXT (FSO1)); 
04 FS WCHAR (FSO1, %C'="); 
bee END; 
046 ‘Write the onyity's counter in the current display mode. 
047 'Note that this is the section number for chapter/appendix 
048 FS_LENGTH (FSO1) = .FS_LENGTH (FSO1) + 
034 PACXXX (.ECC C OFFSET ECCSH_COUNTERI. 
921 ECT C.OFFSET, ECCSH_DISPLAY_DESC)); 
038 ‘Write the post-counter string, if any. 
bee BEGIN 
55 LOCAL 
2$ PTR, 
5 LEN; 
58 PTR = .ECC p- OFF set. ECCSA_POST_PTRI; 
LEN = .ECC C.OFFSET, ECCSH_POST_LENJ; 
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0/P module for processing HEADER: figure, table 1o-300- 138% 94:40:69 AX-11 Oi legnae V4.0-74 Page 39 
Module Level Declarations 14-Sep-1984 :07:31 RUNOFF ..SRCJOUTHDR.BLI; (5) 
08 AS 50 D MOVL RO, FS01412 : 
54 é3 ps p 3 MOVL  HLLIST+#+4, R4& + 0895 
i ! 
00 85 1: 90 é 1$ MOVB #46, @FS01+4 : 0897 
Re be 00086 met baOtet 
ovooooBocer se DD rs PUSHL 4H DSPeeEI] + 0898 
6823 bb or BUSHE = HCLIST#4C1 ; 
68 , 7 CALL ase PACKXX : 
08 A 9 007 ADDL2 RO, FSO1412 ; 
EO 52 4 F 48 2$ AOBLEQ R4, I, 1$ + 0895 
04 008 RET + 0889 
01 68 D1 081 3$ CMPL = HLLIST+4, #1 + 0904 
13 12 00084 BNEQ 4 ; 
000000006 EF DD 00086 PUSHL HLDSP + 0909 
06 AB bb O008E PUSH RELIST#S 
6B 03 FB S008 CALLS #3, PACXXX : 
08 AS 50 20 00094 MOVL RO, FSO1+12 ie 
54 68 DO 00099 4s: MOVL  HLLIST+4, R4 + 0914 
7c fe Oo boE Skeets : 
O0000000GEF SE DD itt 5$ PUSHL HLDSP=4C1) + 0916 
6823 b> Sooag PUSHE = RLLIST#6C1] : 
38 FB OOOAC CALLS #3. PACXXX : 
08 AS 50 CO OOOAF ADDL2 RO, FSO1+12 : 
7 gE Be ooo? ROVE B68, FSD 4 Be 
08 A5 D6 000B9 INCL F$01412 : 
EO 52 54 rs OO0BC 6$ AOBLEQ R4, I, 5 > 0914 
9S Be ae eae an a 
a gag meer ‘ie 
02 00 08 AC CF 000C9 CASEL HEADER_CASE, #0, #2 : 0932 
0011 0008 0006 OOOCE 8$: . WORD 98-85 - : 
11$-8$" : 
52 66 9 99004 9$: NOVAB P.AAA, ENTITY_TEXT ; 0950 
52 08 Ag 4 6009 10S: MOVAB F AAB, ENTITY_TEXT 0951 
52 10 Ab 3 it 11$:  MOVAB. P.AAC, ENTITY_TEXT > 095 
54 07 D £3 12$:  MOVL #7, ENTITY_LER ; 096 
7 D4 3 CLRL OFFSET : 0967 
ee a Gee hs hey | a 
02 00 08 AC CF QOED CASEL HEADER CASE, #0, #2 > 0974 
001 000c 0006 OF2 148: WORD leg-148.- : 
17$-14$" : 
5 18 Ab 9 F8.15$:  MOVAB. P,AAD, ENTITY_TEXT : 0992 
. . OA 7 Sore BRB 18$ : 


ee 


a a a 
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THDR 0/P module for processing HEADER: figure, table 16-36 -1984 01:20:29 AX-11 Bliss-32 V4.0-74 Pa 
yo4~000 Module Level Declarat ont . 1 =3007 1382 94:69:83 ERUNOFF SRE OUTHDR.BLI; -, (3 
52 20 A 9 OF 16$:  MOVAB P,AAE, ENTITY_TEXT : 0993 
04 1 BRB 18 : 
52 28 Ab 9E 00104 178: MOVAB P.AAF, ENTITY_TEXT + 0994 
54 6 D 108 18$: MOVL #6, ENTITY_LER : 1008 
7 } D0 001 MOVL #1. OFFSET : 1919 
: 1 Moot | gees Sag Sen 
0 0 08 AC CF 0011 CASEL HEADER_CASE, #0, #2 : 1017 
0043 oode 0006 118 208: . WORD ie .- : 
$-208" ; 
52 30 Ab 9 116 21$ MOVAB P.AAG, ENTITY_TEXT + 1035 
OA 1 1 BRB 24$ : 
52 38 AG 9 124 22$ MOVAB P.AAH, ENTITY_TEXT + 1036 
04 11 00128 BRB 24$ : 
52 40 Ag 4 91 A 33 MOVAB P.AAI, ENTITY_TEXT : 1037 
54 0 DO OO12E 24$ MOVL #5, ENTITY_LEN > 1050 
67 é DO 00131 MOVL We. OFFSET : 105 
13 53 D1 00134 258 CMPL = R3, #19 : 105 
21. 12 00137 BNEQ 31$ ; 
02 00 08 AC CF 00139 CASEL HEAD R_CASE, #0, #2 : 1059 
001 000C 0006 0013E 26$: WORD Sa5- 9. 3 
9$-26$ : 
52 48 AG YE 00144 27$: MOVAB P.AAJ, ENTITY_TEXT + 1077 
OA 11 00148 BRB 30 : 
52 50 A6 YE O014A 288: MOVAB P.AAK, ENTITY_TEXT : 1078 
04 11 00146 BRB 30$ : 
52 58 Ab 9 00150 29$ MOVAB P.AAL, ENTITY_TEXT : 1079 
54 08 00 00154 30$ MOVL #8, ENTITY_LEN : 1093 
67 0B DO 00157 MOVL #11, OFFSET + 1095 
10 53 D1 OOTSA 318 CMPL : 1098 
21. 12 0015p BNEO : 
02 00 08 AC CF 0015F CASEL HEAD R_CASE, #0, #2 : 1102 
0012 000¢ 0006 00164 32$ «WORD 3$- $.- : 
5$-32$ : 
52 60 A6 9E 0016A 33$: MOVAB P.AAM, ENTITY_TEXT + 1120 
OA 11 0166 BRB : 
52 68 Ab 95 0170 34$: | MOVAB P.AAN, ENTITY_TEXT : 1121 
04 1 O174 BRB : 
52 70 A6 9E 00176 35$:  MOVAB. P.AAO, ENTITY_TEXT : 11 : 
54 07 DO OO17A 36$: MOVL #7, ENTITY_LEN : 11 
67 OA DO 0017D MOVL #10, OFFSET > 1134 
7 D1 00180 37$ CMPL 6R3, # : 1137 
15 13 001 BEQL 4 ©6_-38$ : 
OA 53 pi 001 CMPL = R33, -#10 ; 
10 13 001 BEQL © 3$ F 
0D 53 D1 0018A CMPL) =—seR3, #13 : 
: 1 1 BEQL © 3$ : 
10 Di 0018F CMPL R3, #16 F 
6 1 192 BEQL «=s-3$ : 
13 p 194 CMPL «=soR3, #19 ; 
1 197 BEQL 388 : 
04 001 RET : 
53 D4 O019A 38S CLAL ] > 1142 
OA 11 0019¢ BRB 40$ ; 


$$ $$ 
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570 bytes, Routine Base: $COvVES + 05DC 


; Routine Size: 


‘End of module 
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Module Level Declarations 14-Sep- RUNOFF .SRC R.BLI; )| 

Name Bytes Attributes 
SOWNS ; NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 29 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 20 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

Library Statistics 
eoceeee= Symbols oooee--- Pages Processing 

File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBIXPORT.L32;1 9 0 252 0:00. 
RTT 8: CRUNOFF .SRCJDSRLIB.L32;1 1348 138 10 86 90:80:78 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:OUTHDR/OBJ=OBJ$:OUTHDR MSRC$:CUTHDR/UPDATE=(ENHS$: OUTHDR) 


Size: 2070 coge + 172 data bytes 
Run Time: 745. 
Elapsed Time: 1:41, 


Lines/CPU Min: 1575 
Lexemes/CPU-Min: 18065 
goaeey Used: 341 pages 
Compilation Complete 
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